home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
PASCAL
/
1463.ZIP
/
DRAW-2D.ARC
/
MERGEDR.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1986-12-04
|
300b
|
12 lines
PROCEDURE MERGEDR(VAR KOD:INTEGER);
VAR
ECODE,CODE:INTEGER;
BEGIN
KOD := 0;
GETDIR(TP,CODE);
ECODE := 0;
IF CODE = 0 THEN
GETMRG(ECODE)
ELSE KOD := 1;
IF ECODE <> 0 THEN KOD := ECODE; (* NO FILE NAME ENTERED WITH getnam *)
END;